home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh12a.d64
/
basic-demo 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
606b
|
27 lines
10 REM ******************
20 REM * DEMOPROGRAMM 2 *
30 REM ******************
40 :
50 :
60 IF A=0 THEN A=1:LOAD"PULL-DOWN-OBJECT",8,1:REM ROUTINEN NACHLADEN
70 :
71 DIM A$(20),B$(20)
72 FOR I=1 TO 20
73 : A$(I)="DIES IST EIN TEST"
74 : B$(I)="EIN WEITERER TEST"
75 NEXT
76 :
100 PRINTCHR$(147)
110 PRINT"'SPACE' SCHLIESST DAS JEWEILS OBERSTE WINDOW":PRINT
120 FOR I=1 TO 20
130 : PRINT" UEBERLAGERUNG MEHRERER WINDOWS"
140 NEXT
150 SYS50688+3,5,5,15,10,0,0
160 SYS50688,5,5,15,10,A$(1)
170 SYS50688+3,15,8,8,13,0,1
180 SYS50688,15,8,8,13,B$(1)
200 GETA$:IFA$<>" " THEN 200
210 SYS50688+3,15,8,8,13,1,1
220 GETA$:IFA$<>" " THEN 220
230 SYS50688+3,5,5,15,10,1,0